function EviewstoMatlab(dpath,dfname,wkshname,wkshnew)
cucd=cd; 
cd(dpath); 
if isempty(wkshname);
    [An,As]=xlsread(dfname);
else
    [An,As]=xlsread(dfname,wkshname);
end
ocell=num2cprec(An,10); 
ocell=[As(1,1:size(An,2));ocell]; 
if nargin < 4 || isempty(wkshnew)
    wkshnew='Matlab';
end 
xlswrite(dfname,ocell,wkshnew); 
cd(cucd); 

    